home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / PERL / Perl / Lib / Stat < prev    next >
Text File  |  1990-08-14  |  509b  |  27 lines
  1. ;# $Header: stat.pl,v 3.0.1.1 90/08/09 04:01:34 lwall Locked $
  2.  
  3. ;# Usage:
  4. ;#    require 'stat.pl';
  5. ;#    @ary = stat(foo);
  6. ;#    $st_dev = @ary[$ST_DEV];
  7. ;#
  8. $ST_TYPE =    0 + $[;
  9. $ST_FTYPE =    1 + $[;
  10. $ST_LOAD =    2 + $[;
  11. $ST_EXEC =    3 + $[;
  12. $ST_LENGTH =    4 + $[;
  13. $ST_ATTR =    5 + $[;
  14. $ST_TIME =    6 + $[;
  15. $ST_UTIME =    7 + $[;
  16.  
  17. ;# Usage:
  18. ;#    require 'stat.pl';
  19. ;#    do Stat('foo');        # sets st_* as a side effect
  20. ;#
  21. sub Stat {
  22.     ($st_type,$st_ftype,$st_load,$st_exec,$st_length,$st_attr,
  23.     $st_time,$st_utime) = stat(shift(@_));
  24. }
  25.  
  26. 1;
  27.